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if (VB+R)->offset<0 then 
Temp=(VB+R)->offset; 

(VB+R)->offset+=(VB+R+(VB+R)->offset)->offset; 
for(i=l;i<(VB+R)->offset;i++) 
(yB+R+i)->offset-=Temp; 
endif 

if(VB->offset<0) 

(VB+VB->offset)->offset=-VB->offset; 
endif 
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